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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Cache 
> 

> The name of this module is a bit misleading: there is no true 

> cache impiemented at this time. However, there is an attempt made 

> at some primitive look-ahead methods to reduce the access time 

> of the disk. This module contains those routines that are 

> chiefly involved with the look-ahead algorithm. 
> 

> FUNCTION CnvrtLogicaK LogicalBlock : 3 BYTES { !rC:E > > : 

> CnvrtLogical : BOOLEAN { true if block spared } 

> Cylinder : I40RD { ! IrC } 

> Head : BYTE { !rE > 

> Sector : BYTE { IrF } 

> Status : BYTE { !rO } 

> Ptr : BYTE { !r1 > 

FUNCTION SrchCachC LogicalBlock : 3 BYTES { lrC:E } 

> Random : BOOLEFIH { lr?/Bit 7 > 

> Offset : 3 BITS { !r?/"Bits 2:0 > > : 

> BOOLEAN 

> HeadSector : BYTE { IrO > 
> 
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> 

> Function: CnvrtLogical { ConvertLogical Block } 
:> 

> This function is responsible for converting a logical block 

> number to a physical block number by first searching the spare 

> table and then doing the appropriate arithmetic to arrive at 

> the cyl inder, head, and sector value. 
> 

> Inputs: 

> LogicalBlockNufflber : 3 BYTES { !rC, !rD, !rE > 
> 

> Outputs: 

> Cul inder 

> Head 

> Sector 

> Status 

> Ptr 
> 
> 

> Loca I \)ar- i ab i es : 

> PhysicalBlock : 3 BYTES { !rC, !rD, rE } 
Temp : 3 BYTES { \r^, !r2, Ir3 } 

> ftlgorlt^tfB: 
> 

> BEGIN 

> IF LogicalBlock > NaxLogicalBlock THEN RBORT 

> Phys i ca I B i ock : = Sear chSpareTab I e < Log i ca I B I ock > 

> Cylinder := PhysicalBlock DIU < Heads * Sectors > 

> Temp := PhysicalBlock NOD < Heads * Sectors > 



HORD { !rC, IrO > 

BYTE { IrE } 

BYTE { IrF > 

BYTE { !rO, returned frorai search spare table } 

BYTE { \r-^, returned from search spare table > 



;> Head := Temp 


DIU Sectors 




;> Sector := Temp MOD Sectors 




; > END 
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CnurtLogical : 






CnvrtSrch: Call 


SrchSpTabl 


; check if logical block in spare table 


Push 


Flags 


;save results 


Push 


IrO 


;saye status 


Push 


!r1 


;saMe ptr 


Ld 


lr2,«.HIBVTE- 


GetjCyl-}^^ 


Ld 


!r3,».L0WBYTE 


GetJCyl_H_S 


Call 


Bank rail 


;get cylinder, headland sector 


Ld 


!rO, !rF 


;pass physical sector 


Ld 


!r2,«.HIBVTE. 


ReNapJSector 


Ld 


lr3,«.L0UBVTE 


. Retlap-Sector 


Call 


Bank jCa 1 1 




Ld 


IrF, IrO 


IrF := logical sector 


Pop 


Irl 


;Element.Ptr 


Pop 


IrO 


; Search Status 


Pop 


Flags 




Jp 


Bank_Ret 
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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

Function: SrchCache 

This fun t ion searches the block cache and returns both a 
boolean variable < indicating whether the block is in the 
c»3che AND If there Is a seek associated JJiilth It "), os well 
as a info as to aihether a head select may be needed. The 
cache may be searched sequential ly, or randomly < as is the 
case for multibiock commands. >. 



Inputs; 



LogicafBlock : 3 BYTES { !rC:E > 
Offset : 3 BVTE { frO } 
iOORKING REGISTER SET NUST BE Wr^JSqs 



Outputs : 



SrchCache : BOOLEAN 



{ zero flag is set if block is not 
i n the cache OR i f there i s a seek 
needed to get to the block > 



HeadSector : BVTE { IrO 



fllgorlthm: 

BEGIN 
i := 1 



SrchCache := False 

IF < CachefirrayE Offset l.Logical Block = Logical Block > 
THEN 

Found := True 

CachStat := CacheS lotus [ Offset 3 
IF NOT< CachStat. Seek > 
THEN SrchCache := True 
END 



> 
> 

> 
> 
> 
> 

> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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SrchCache : 



Srch JC JLp : 



Srp «WrkJScr 

Ld ! r 4 . »CacheLeng th 

Ld !rfl,».HIBVTE. Cacheflrray 

Ld !rB,».LO^JBVTE. Cacheflrray 

Ld I r , Cache_ I ndex 

Rl !rO ;iiiultjply bq 4 

Rl !rO 

Add IrB, !rO ; Index into array 

Rdc !rR.«0 



Ld !r8,«ScrRegO 

Lde i § ! r 8 , § I ! rfl ; I oad Cacheflrray . Log i ca I 

Ldel e!r8,e!!rfl 

Ldei @!r8,g! Irfl 

Xor lrO.WrkJSys+$C jcompar-e values 

Xor !rr,MrkJSys+$D 

Xor lr2,Urk-Sys+$-E 

Or IrO, !r1 ;test for zero 

Or !rO, !r2 

Jr Nz . Srch_J1ore 



SrchJC-£nd: 



Ld !r8,«.H{BVTE. CachStat ;get CacheStatui 

Ld !r9,«.L0HBVTE. CachStat 

Add ! r 9 , Cache_ I ndex 

1 nc Cache_t ndex 

Lde !r1,§!!r8 

Ld BlkStat^Irl ;saye search result 

Lde ! r , @ 1 1 rfl ; ge t Head /Sec tor i n f o 



Srp 
Ld 
Tm 
Ret 



*i4rkJSys ;get back to normal system context 
! rO^ ScrRegO ; pass head /sec tor i nf o back 
BlkStat,*CachSeek ;set seekneeded flag 



SrchJIore: Inc Cache_lndex 

Cp Cache_lndex^*CacheLength ; check for cache overflow 
Jr Lt,SrchJ1_1 



Ctr Cache-Index 

Srch_l1_1: Ojnz ! r4, SrchJC_Lp 

Ld BlkStat,«CachSeek 

CIr Cache_lndex 



Jr Srch_jC_End 
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